-- card: 8500 from stack: in.3
-- bmap block id: 0
-- flags: 0000
-- background id: 2663
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=288 top=30 right=51 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chooser
----- HyperTalk script -----
on copyright

  -- Menu Accessory, Copyright by Mac Help Co., January 1988
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, (213) 428-7414
  --      The script for this button is copyrighted and may not be
  --      used without the written permission of the author (above).

end copyright


on mouseUp

  put the name of the target into ThisName
  put ThisName into ButtonName
  delete word 1 to 2 of ThisName
  delete first char of ThisName
  delete last char of ThisName

  if the ShiftKey is down or ThisName is "Not Set" then
    answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
    if it is "Accessory" then
      ask "Enter the exact name of the new desk accessory?" with ThisName
      if it is empty then put "Not Set" into it
      set the name of ButtonName to it
      put it into ThisName
    end if
    if it is "Directions" then
      put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
      ask "Directions" with String
      exit mouseUp
    end if
  end if

  doMenu ThisName
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=320 top=30 right=51 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not Set
----- HyperTalk script -----
on copyright

  -- Menu Accessory, Copyright by Mac Help Co., January 1988
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, (213) 428-7414
  --      The script for this button is copyrighted and may not be
  --      used without the written permission of the author (above).

end copyright


on mouseUp

  put the name of the target into ThisName
  put ThisName into ButtonName
  delete word 1 to 2 of ThisName
  delete first char of ThisName
  delete last char of ThisName

  if the ShiftKey is down or ThisName is "Not Set" then
    answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
    if it is "Accessory" then
      ask "Enter the exact name of the new desk accessory?" with ThisName
      if it is empty then put "Not Set" into it
      set the name of ButtonName to it
      put it into ThisName
    end if
    if it is "Directions" then
      put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
      ask "Directions" with String
      exit mouseUp
    end if
  end if

  doMenu ThisName
end mouseUp



-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=344 top=25 right=40 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: See Script
----- HyperTalk script -----
on mouseUp
  edit script of card button ID 2
end mouseUp


-- part contents for background part 8
----- text -----
Card 13 of 20

-- part contents for background part 9
----- text -----
MENU ACCESSORY

This button will allow the user to set the button to call up any menu command without having to do any programming.

If the name of the button is 'NOT SET' then it will give directions.  Hold the shift key down while clicking on the button to set its function.

Some useFul settings would be to call up the Calculator, or NotePad or Scrapbook, or any commonly used menu commands themselves.

-- part contents for card part 3
----- text -----
See Script